' Kod VB6

Option Explicit

Public Sub Main()

  Dim o As NameComponent.NameFunctions
    
  Set o = New NameComponent.NameFunctions
    
  o.FirstName = "Bill"
  o.LastName = "Evjen"
    
  MsgBox "Imi i nazwisko: " + o.FullName
    
  MsgBox "Dugo imienia i nazwiska: " + CStr(o.FullNameLength)
    
  o.FullName = "Scott Hanselman"
    
  MsgBox "Imi: " + o.FirstName
    
  MsgBox "Nazwisko: " + o.LastName
    
  o.LastName = "Evjen"
   
  MsgBox "Imi i nazwisko: " + o.FullName
    
  Set o = Nothing

End Sub
